VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmCreaMattonella 
   Caption         =   "Crea Mattonella"
   ClientHeight    =   4575
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   3675
   OleObjectBlob   =   "frmCreaMattonella.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "frmCreaMattonella"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False



Private Sub CommandButton1_Click()
    
    Dim widthTassello As Double
    widthTassello = TextBoxWT.Value
    Dim heightTassello As Double
    heightTassello = TextBoxHT.Value
    Dim Fuga As Double
    Fuga = TextBoxF.Value
    Dim NumTasselliWidth As Long
    NumTasselliWidth = TextBoxTMW.Value
    Dim NumTasselliHeight As Long
    NumTasselliHeight = TextBoxTMH.Value
    
    If widthTassello <= 0 Or heightTassello <= 0 Or Fuga <= 0 Or NumTasselliWidth <= 0 Or NumTasselliHeight <= 0 Then
        MsgBox "I valori inseriti devono essere maggiori di 0.00 mm"
    Else
        Call CreaMattonella(widthTassello, heightTassello, Fuga, NumTasselliWidth, NumTasselliHeight)
        Unload Me 'Chiude il form di inserimento
    End If
End Sub

